home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / comms / other / ftransapiv / arexx / ftransfinalwriter.rexx < prev    next >
OS/2 REXX Batch file  |  1999-06-14  |  3KB  |  108 lines
  1. /* 
  2.  
  3.  ---------------------------------------------
  4.  FinalWriter Translator By FTranslator Client
  5.  
  6.  Script by Cristian Robert Gallas
  7.  
  8.  Tested with Final Writer 97
  9.  Usage:                                
  10.  Use in ARexx interface of FinalWriter
  11.  $VER: FTransFINALWRITER.rexx v0.01 (16.08.96)
  12.  ---------------------------------------------
  13.  
  14.  HISTORY
  15.  ----------------------------------------
  16.  v0.01b [16.08.98] - First public beta version.
  17.  ----------------------------------------
  18.  
  19.  [Steps installation]
  20.  
  21.  > Copy FTransFINALWRITER.rexx to FinalWriter:FWMacros/
  22.  > Go to User/Other/Preferences
  23.  > Click NEW
  24.  > Menu Item Name Portuguese->English (This is a example)
  25.  > Command Type, select ARexx Script
  26.  > Click in Select and selection FTransFINALWRITER.rexx
  27.  > PUT IN AREXX SOURCE CODE, LINE 50 NUMBER OF TRANSLATION DIRECTION
  28.    ITS NEEDED BECAUSE FINALWRITER AREXX INTERFACE IS LIMITED
  29.  > If like select shortcut and menu position
  30.  > Now Save
  31.  > Select text and click on User/Portuguese->English
  32.  > Its open new window with translation... :)
  33.  
  34.  0 - English   to Francais
  35.  1 - English   to Deutsch
  36.  2 - English   to Italiano
  37.  3 - English   to Portugues
  38.  4 - English   to Espanol
  39.  5 - Francais  to English
  40.  6 - Deutsch   to English
  41.  7 - Italiano  to English
  42.  8 - Espanol   to English
  43.  9 - Portugues to English
  44.  
  45. */
  46.  
  47. Options Results
  48.  
  49. tmpfile = 'Ram:FTransTmp.FINALWRITER'
  50. tmpclip = 'Ram:FTransFinalWriter.Clip'
  51.  
  52. /* TRADUZ = TRANSLATION DIRECTION */
  53. /* EXAMPLE  TRADUZ = "3"          */
  54. /*++++++++++++++++++++++++++++++++*/
  55. traduz = ""
  56. /*++++++++++++++++++++++++++++++++*/
  57.  
  58. /* TESTA SE A DIRECAO DA TRADUCAO FOI INFORMADA */
  59. if traduz = "" then do
  60.   SHOWMESSAGE 1 1 '"PUT IN FTransFINALWRITER.rexx SCRIPT LINE 50, TRANSLATION DIRECTION..." "" "" "Ok" "" ""'
  61.   exit
  62. end
  63.  
  64. /* TESTA SE PODE SER USADAS AS LIBS DO AREXX */
  65. if ~show(l, "rexxsupport.library") then
  66.   if ~addlib("rexxsupport.library", 0, -30) then
  67.     exit
  68. if ~show(l, "rexxtricks.library") then
  69.   if ~addlib("rexxtricks.library", 0, -30) then
  70.     exit
  71.  
  72. /* TESTA SE O PROGRAMA JA NAO ESTA COM A PORTA DE TRADUCAO ABERTA */
  73. if exists(tmpfile) then do
  74.   SHOWMESSAGE 1 1 '"FTranslation port is open! Translation in progress, wait..." "" "" "Ok" "" ""'
  75.   exit
  76. end
  77.  
  78. COPY
  79.  
  80. /* PEGA O CONTEUDO DO CLIPBOARD */
  81. sel = ReadClipboard(0)
  82.  
  83. /* TESTA SE FOI SELECIONADO O TEXTO */
  84. if sel = "" then do
  85.   SHOWMESSAGE 1 1 '"You need select text first..." "" "" "Ok" "" ""'
  86.   exit
  87. end
  88.  
  89. call open(1, tmpclip, 'W')
  90. call writeln(1, sel)
  91. call close(1)
  92.  
  93. /* COLOCA COMO DEFAULT PORTUGUES TO ENGLISH */
  94. if traduz = "" then
  95.   traduz = 3
  96.  
  97. /* EXECUTA O FTRANSLATOR COM OS ARGUMENTOS DA TRADUCAO */
  98. comando = 'C:FTranslator FILE 'traduz' "'tmpclip'" SILENCE > 'tmpfile
  99. Address Command comando
  100. Address Command 'Delete "'tmpclip'"'
  101.  
  102. OPEN tmpfile
  103.  
  104. Address Command 'Delete "'tmpfile'"'
  105.  
  106. exit
  107.  
  108.